home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 9 / 009.d81 / card - guy (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  158 lines
  1. 5 poke53248+21,0
  2. 10 bo=53280:ba=53281:sc=1024:cc=55296:x=156:x1=4:v=53248:s=54272:mu=-1
  3. 15 dimvh(25),vl(25),vd(25),uh(21),ul(21),ud(21),wh(21),wl(21),wd(21)
  4. 20 pokebo,4:pokeba,1:print"[147][144]";
  5. 25 fort=1to8:reada(t):next
  6. 30 fort=1to25:readvh(t),vl(t),vd(t):next
  7. 35 fort=1to19:readuh(t),ul(t),ud(t):next
  8. 40 fort=1to21:readwh(t),wl(t),wd(t):next
  9. 45 fort=12288to12798:reada:poket,a:next
  10. 50 print"[147]        touch any key, sweetie"
  11. 55 geta$:ifa$=""then55
  12. 60 pokev+21,195
  13. 65 fort=0to7:poke2040+t,192+t:next
  14. 70 fort=0to10step2:pokev+t,172:next
  15. 75 pokev+12,75:pokev+14,255:pokev+8,161
  16. 80 pokev+1,191:pokev+3,210:pokev+5,210:pokev+7,191:pokev+9,171
  17. 85 pokev+11,191:pokev+13,100:pokev+15,190
  18. 90 pokev+28,63:pokev+37,0:pokev+38,7
  19. 95 fort=39to44:pokev+t,2:next
  20. 100 pokev+45,15:pokev+46,15:pokev+29,16
  21. 105 pokev+39,2:pokevv+40,2:pokev+41,2:pokev+42,2:pokev+43,14:pokev+44,2
  22. 110 pokev+45,12:pokev+46,12
  23. 115 gosub340:gosub140:gosub210
  24. 120 goto63000
  25. 125 pokebo,6:pokeba,3:print"[147]"
  26. 130 x=154:x1=14:gosub340
  27. 135 return
  28. 140 print"";
  29. 145 print,"[154][157][157] [166]     [166]  ",,;
  30. 150 print,,"[157] [166]   [166]    [166][166][166]    [166]   [166]"
  31. 155 print,"[157]  [166] [166]    [166]   [166]   [166]   [166]";
  32. 160 print,"[157]   [166]     [166]   [166]   [166]   [166]"
  33. 165 print,"[157]   [166]     [166]   [166]   [166]   [166]";
  34. 170 print,"[157]   [166]      [166][166][166]     [166][166][166]"
  35. 175 print,"[152]   deserve the best"
  36. 180 print,,"[158] [162] "                                                       
  37. 185 print,,"[157][169][146][169][169][146][169]",,;
  38. 190 print,,"[157][157][169][146][169][169][146][169]"
  39. 195 print,,"[157][157] [184] "
  40. 200 print,,"[156][157][157][157][157]can  give"
  41. 205 return
  42. 210 fort=stos+24:poket,0:next
  43. 215 pokes+24,15:pokes+5,66:pokes+12,66:pokes+19,66
  44. 220 pokes+6,130:pokes+13,130:pokes+20,130
  45. 225 q=1:y=1:z=1
  46. 230 vd(q)=vd(q)-1:ifvd(q)=0thenpokes+4,16:q=q+1
  47. 235 ud(y)=ud(y)-1:ifud(y)=0thenpokes+11,16:y=y+1
  48. 240 wd(z)=wd(z)-1:ifwd(z)=0thenpokes+18,16:z=z+1
  49. 245 mu=-mu:poke2046,peek(2046)+mu:poke2047,peek(2047)-mu
  50. 250 fort=1to30:next
  51. 255 pokes,vl(q):pokes+1,vh(q)
  52. 260 pokes+7,ul(y):pokes+8,uh(y)
  53. 265 pokes+14,wl(z):pokes+15,wh(z)
  54. 270 pokes+4,17:pokes+11,17:pokes+18,17
  55. 275 ifq=25then310
  56. 280 ifq=20thengosub305
  57. 285 ifq=19thengosub295
  58. 290 fort=1to100:next:goto230
  59. 295 k=k+1:ifk<4thenreturn
  60. 300 gosub125:return
  61. 305 pokev+21,220:return
  62. 310 print"[151]","you're my perfect ten"
  63. 315 print,"       sherry":rem  your sweetheart's name here
  64. 320 pokev+21,252
  65. 325 fort=150to0step-1:pokes+24,t/10:pokev+11,t:fori=1to10:next:next
  66. 330 print,,"     love,",,,"     mark":rem your name here
  67. 335 return
  68. 340 printchr$(x)"  [211]    [211]    [211]    [211]    [211]    [211]    [211]    [211]  [146]";
  69. 345 fort=1to23:print"  [211]  ",,,"[146]      [211]  ";:next
  70. 350 print"  [211]    [211]    [211]    [211]    [211]    [211]    [211]    [211] "
  71. 351 poke1024+((40*24)+39),160:poke55296+((40*24)+39),4
  72. 355 fort=1to8step2:pokesc+a(t),a(t+1):pokecc+a(t),0:next
  73. 360 pokesc+999,160:pokecc+999,x1:return
  74. 365 data45,105,74,95,925,223,954,233
  75. 370 rem music data
  76. 375 data50,60,2,50,60,1,56,99,2,50,60,2,67,15,2,63,75,4,50,60,1,50,60,1
  77. 380 data56,99,2,50,60,2,75,69,2,67,15,4,50,60,1,50,60,1,100
  78. 385 data121,2,84,125,2,67,15,2,63,75,2,56,99,4,89,131,1,89,131
  79. 390 data1,84,125,2,67,15,2,75,69,2,67,15,6
  80. 395 data0,0,2,0,0,1,42,62,4,50,60,6,42,62,1,37,162,1,25,30,4,37,162,1,63,75,1
  81. 400 data50,60,6,84,125,2,67,15,2,50,60,2,44,193,4,44,193,4
  82. 405 data67,15,2,50,60,2,63,75,2,50,60,6,0,0,2,0,0,1,8,97
  83. 410 data4,6,167,2,6,71,4,4,180,2,6,71,4,4,180,2,4,48,2,8,97,2
  84. 415 data6,71,2,8,97,4,10,143,2,11,48,2,5,152,4,5,71,1,4,180,1,4,48,4
  85. 420 data6,71,2,8,97,2,4,48,4
  86. 425 rem sprites data
  87. 430 data002,170,168,010,170,170,042,191
  88. 435 data234,170,191,250,170,255,254,170
  89. 440 data255,254,175,255,254,165,085,085
  90. 445 data173,085,085,173,087,085,237,087
  91. 450 data213,253,087,245,255,243,252,255
  92. 455 data243,255,255,207,255,063,085,084
  93. 460 data063,085,084,015,255,255,015,250
  94. 465 data175,003,255,255,000,255,252,002
  95. 470 data010,255,160,042,190,168,170,170
  96. 475 data170,170,170,170,170,170,170,168
  97. 480 data170,138,168,170,138,170,170,170
  98. 485 data242,170,175,242,170,175,242,170
  99. 490 data175,241,000,031,241,085,095,255
  100. 495 data085,127,063,000,060,001,085,080
  101. 500 data001,085,080,001,093,080,001,093
  102. 505 data080,001,093,080,002,170,170,040
  103. 510 data170,255,170,170,190,170,170,170
  104. 515 data170,170,170,170,042,170,168,010
  105. 520 data170,160,002,170,160,002,170,160
  106. 525 data002,170,160,002,170,160,002,170
  107. 530 data160,001,000,016,001,085,080,001
  108. 535 data085,080,001,085,080,001,085,080
  109. 540 data001,085,080,001,081,080,001,081
  110. 545 data080,001,081,080,002,170,042,040
  111. 550 data254,170,191,254,170,191,254,255
  112. 555 data191,254,255,191,254,255,191,254
  113. 560 data255,191,252,255,063,253,085,127
  114. 565 data253,085,127,253,093,127,253,093
  115. 570 data127,253,127,127,252,255,063,252
  116. 575 data255,063,252,255,063,253,085,127
  117. 580 data253,085,127,252,255,063,252,234
  118. 585 data063,252,255,063,255,000,255,002
  119. 590 data085,085,085,085,085,085,106,170
  120. 595 data169,104,160,009,096,160,009,096
  121. 600 data162,137,104,162,137,104,162,137
  122. 605 data104,162,137,104,162,137,104,162
  123. 610 data137,104,162,137,104,162,137,104
  124. 615 data162,137,104,162,137,104,162,137
  125. 620 data096,032,009,096,032,009,106,170
  126. 625 data169,085,215,085,087,215,213,000
  127. 630 data010,128,000,136,136,128,136,136
  128. 635 data138,136,136,136,138,136,138,128
  129. 640 data002,008,128,002,010,170,000,000
  130. 645 data170,000,000,000,000,000,010,002
  131. 650 data128,042,138,160,170,170,040,170
  132. 655 data170,040,170,168,168,170,162,168
  133. 660 data042,170,160,010,170,128,002,170
  134. 665 data000,000,168,000,000,032,000,000
  135. 670 data000,000,000,000,000,000,000,000
  136. 675 data000,000,003,224,000,063,224,003
  137. 680 data255,224,003,255,224,003,252,032
  138. 685 data003,192,032,002,000,032,002,000
  139. 690 data032,002,000,032,002,007,160,002
  140. 695 data015,224,122,015,224,254,015,192
  141. 700 data254,007,128,252,000,000,120,000
  142. 705 data000,000,000,000,000,000,000,000
  143. 710 data000,000,000,000,000,000,000,000
  144. 715 data000,000,000,000,000,062,000,000
  145. 720 data063,240,000,063,255,000,063,255
  146. 725 data000,035,255,000,032,062,000,064
  147. 730 data002,000,064,002,000,064,002,015
  148. 735 data064,004,031,192,004,031,192,244
  149. 740 data031,129,252,015,001,252,000,001
  150. 745 data248,000,000,240,000,000,000,000
  151. 63000 fordl=1to5000:next:pokev+21,0
  152. 63010 print"[147][144]want to run it again <y/n>?"
  153. 63020 poke198,0:wait198,1:getk$
  154. 63030 ifk$<>"y"andk$<>"n"thenpoke53280,rnd(1)*15:goto63020
  155. 63040 ifk$="y"thenrun
  156. 63050 print"[147]load"chr$(34)"c.payload"chr$(34)",8":print"run"
  157. 63060 poke631,13:poke632,13:poke198,2:end
  158.